home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 4 / Amiga Plus Sonderheft 1996 #4.iso / helm lite / bookshelf (.txt) next >
Helm Multimedia Book  |  1995-11-06  |  47KB  |  780 lines
  1.     Bookshelf
  2. 11-02-93
  3. on BookOpen
  4. begin
  5.   global Tn
  6.   put 1 into Tn
  7.   set the border of the requesters to 2
  8.   set the thickness of the requesters to 2
  9.   set the pen of the requesters to 4
  10. New...
  11. Open...
  12. Make Copy...
  13. Streamline...
  14. Preferences...
  15.     Workbench
  16. Help...
  17. About...
  18. Quit...
  19. Paste
  20. Clear
  21. Select All
  22. Cut Page
  23.     Copy Page
  24. Colors
  25. Load...
  26. Save...
  27. Restore Colors
  28. Default Colors
  29. Brush Colors
  30. Image Colors
  31. Last Color Font
  32. Cycle
  33. Grid...
  34. Stop Sound
  35. Show All
  36. Unlock All
  37.     Edit Form
  38. Share
  39.     Next Page
  40. Previous Page
  41. First Page
  42.     Last Page
  43. Backward
  44. Forward
  45.     Last Book
  46.     Browse...
  47. Autobrowse...
  48.     Bookshelf
  49. New Page
  50. Delete Page
  51. New Form
  52. Load Form...
  53. Save Form...
  54. Image
  55. Load...
  56. Save...
  57. Capture...
  58.     Clipboard
  59. Paste
  60. Spare
  61. Swap Frames
  62. Copy to Spare
  63. Merge in Front
  64. Merge in Back
  65. Delete Spare
  66. Frame
  67. Previous
  68. Delete
  69. Copy to All
  70. Color
  71. Remap
  72. Transparency
  73. Paper <-> Pen
  74. Paper ->  Pen
  75. Count
  76. Vertical
  77. Horizontal
  78. Info...
  79. Brush
  80. Load...
  81. Save...
  82. Restore
  83.     Clipboard
  84. Paste
  85. Color
  86. Remap
  87. Transparency
  88. Paper <-> Pen
  89. Paper ->  Pen
  90. Center
  91. Corner
  92.     Any Point
  93. Any Size
  94. Halve
  95. Double
  96. Halve Width
  97. Halve Height
  98. Double Width
  99. Double Height
  100. To PAL
  101. To NTSC
  102. Vertical
  103. Horizontal
  104. Shear
  105. Vertical
  106. Horizontal
  107. Rotate
  108.     Any Angle
  109. Paint
  110. Matte
  111. Color
  112. Replace
  113. Smear
  114. Dissolve
  115. Spare
  116. Cycle
  117. Cycle 2
  118. Gradient
  119. Gradient 2
  120. Smudge
  121. Chaos
  122. Count
  123. Custom
  124. Dither
  125. Edges
  126. Object
  127. Load...
  128. Save...
  129. Bring to Front
  130. Send to Back
  131. Bring Closer
  132. Send Farther
  133. Group
  134. Ungroup
  135. Duplicate...
  136. Align...
  137. Info...
  138. Actions...
  139.     Script...
  140. Load...
  141. Save...
  142. Plain
  143.     Underline
  144. Italic
  145. Shadow
  146. Font...
  147. Spacing...
  148.     Hypertext
  149. Actions...
  150.     Script...
  151. Tools
  152. Coordinates
  153.     Title Bar
  154. Palette
  155. Colors
  156. Patterns
  157. Paint Tools
  158. Paint Types
  159.     Histogram
  160.     Magnifier
  161. Messages
  162. Draw Tools
  163. Layers
  164. Pages
  165. Author
  166. Book...
  167. Form...
  168. Page...
  169. Display...
  170. Narrator...
  171. Hypertext...
  172. Resources...
  173.     Effect...
  174. Effect Area
  175. Book23
  176. topaz.font
  177. \sBook23
  178. Utility Books
  179. fonts:Book23
  180. ram:NewBookshelf
  181. work:helm/Bookshelf
  182. Press the Help key and...
  183. CUse this bookshelf to go to other books. It consists of one or more
  184. Ipages of buttons that correspond to other Helm books. When you click on a
  185. Dbook name, Helm will close the bookshelf and open the selected book.
  186. ?The large buttons are available on every page of the bookshelf:
  187. Categories
  188.     - Displays a popup menu of book categories you can view
  189.           - Alphabetically sorts the book entries
  190.           - Displays this information you are now reading
  191. New Book
  192.       - Opens a file requester for creating an entirely new book
  193. Open Book
  194.      - Goes to a book that you select from a file selector
  195. Quit Helm
  196.      - Closes the Bookshelf and shuts down Helm
  197. Last Book
  198.      - Goes to the last book you viewed
  199.           - Show link fields connecting the bookshelf to other books
  200. Previous Page
  201.  - Goes to the previous page of book listings
  202. Next Page
  203.      - Goes to the next page of book listings
  204. JTo enter new books into the bookshelf, press the Link button on the right.
  205. FSmall buttons will appear over the book buttons. Click on one of these
  206. @buttons to change the book linked to the button below it. A file
  207. Frequester will appear where you can select the new book. The bookshelf
  208. Gwill place the name of the book into the big button and the entire file
  209. Dpath into the small button. Press the Link button again and when you
  210. <press on the button, Helm will go to the corresponding book.
  211. DYou can also link books by pressing the Link button and by selecting
  212. Unlock All
  213.  from the 
  214.  menu. This lets you type in both a book name
  215. 'and a book path into a pair of buttons.
  216. ;This book includes Blackboard help. To get information on a
  217. =specific object, press Help on your keyboard and click on the
  218. <object. To turn off the help mode, press the Help key again.
  219. Helm Lite Multimedia Bookshelf
  220. by Eagle Tree Software
  221. Press the Help key and...
  222. "...click on objects for more info.
  223. !Technical Support: (804) 452-0623
  224. $This Bookshelf is a Helm book and...
  225. ...an interactive extravaganza.
  226. To upgrade to the full version,
  227. contact Eureka...
  228. Telephone: +31(0)46370800
  229. LastPublicField
  230. Topic
  231. Page %N of %C
  232.  Categories
  233.  Sort Entries
  234. @I Information
  235. @N New Book
  236. @B Open Book
  237. @Q Quit Helm
  238. @L Last Book
  239. @k Link
  240. @P Previous Page
  241. ~ Next Page
  242. LastPrivateField
  243. ~@OOK
  244. on Timer
  245. begin
  246.   global Tn
  247.   add 1 to Tn
  248.   if Tn > (the number of lines of textfield "M") Tn = 1
  249.   put line Tn of textfield "M" into textfield "T"
  250. Ron Help
  251. begin
  252.   play notes "cx d e"
  253.   blackboard "Today's date" color 0 pen 6
  254. cx d e
  255. Today's date
  256. 0on Help { HelpBook() }
  257. on SelectUp { GoBook() }
  258. HelpBook
  259. GoBook
  260. 0on Help { HelpBook() }
  261. on SelectUp { GoBook() }
  262. HelpBook
  263. GoBook
  264. 0on Help { HelpBook() }
  265. on SelectUp { GoBook() }
  266. HelpBook
  267. GoBook
  268. 0on Help { HelpBook() }
  269. on SelectUp { GoBook() }
  270. HelpBook
  271. GoBook
  272. 0on Help { HelpBook() }
  273. on SelectUp { GoBook() }
  274. HelpBook
  275. GoBook
  276. 0on Help { HelpBook() }
  277. on SelectUp { GoBook() }
  278. HelpBook
  279. GoBook
  280. 0on Help { HelpBook() }
  281. on SelectUp { GoBook() }
  282. HelpBook
  283. GoBook
  284. 0on Help { HelpBook() }
  285. on SelectUp { GoBook() }
  286. HelpBook
  287. GoBook
  288. 0on Help { HelpBook() }
  289. on SelectUp { GoBook() }
  290. HelpBook
  291. GoBook
  292. 0on Help { HelpBook() }
  293. on SelectUp { GoBook() }
  294. HelpBook
  295. GoBook
  296. 0on Help { HelpBook() }
  297. on SelectUp { GoBook() }
  298. HelpBook
  299. GoBook
  300. 0on Help { HelpBook() }
  301. on SelectUp { GoBook() }
  302. HelpBook
  303. GoBook
  304. 0on Help { HelpBook() }
  305. on SelectUp { GoBook() }
  306. HelpBook
  307. GoBook
  308. 0on Help { HelpBook() }
  309. on SelectUp { GoBook() }
  310. HelpBook
  311. GoBook
  312. 0on Help { HelpBook() }
  313. on SelectUp { GoBook() }
  314. HelpBook
  315. GoBook
  316. 0on Help { HelpBook() }
  317. on SelectUp { GoBook() }
  318. HelpBook
  319. GoBook
  320. 0on Help { HelpBook() }
  321. on SelectUp { GoBook() }
  322. HelpBook
  323. GoBook
  324. 0on Help { HelpBook() }
  325. on SelectUp { GoBook() }
  326. HelpBook
  327. GoBook
  328. 0on Help { HelpBook() }
  329. on SelectUp { GoBook() }
  330. HelpBook
  331. GoBook
  332. 0on Help { HelpBook() }
  333. on SelectUp { GoBook() }
  334. HelpBook
  335. GoBook
  336. on Help
  337. begin
  338.   play notes "cx d e"
  339.   blackboard "Enter a category name\n" &
  340. "for a group of books\n" &
  341. "into this textfield." color 0 pen 6
  342. cx d e
  343. Enter a category name
  344. for a group of books
  345. into this textfield.
  346. aon Help
  347. begin
  348.   play notes "cx d e"
  349.   blackboard "The current time of the day" color 0 pen 6
  350. cx d e
  351. The current time of the day
  352. {on Help
  353. begin
  354.   play notes "cx d e"
  355.   blackboard
  356. "To change the messages that\n" &
  357. "are displayed at this location,\n" &
  358. "select \"Show All\" from the Edit\n" &
  359. "menu and type into the big red\n" &
  360. "textfield. You can enter any\n" &
  361. "number of lines into this field."
  362. color 0 pen 6
  363. cx d e
  364. To change the messages that
  365. are displayed at this location,
  366. select "Show All" from the Edit
  367. menu and type into the big red
  368. textfield. You can enter any
  369. number of lines into this field.
  370. on Help
  371. begin
  372.   play notes "cx d e"
  373.   blackboard "The number of the page\n" &
  374. "you are currently viewing\n" &
  375. "and the total number of\n" &
  376. "pages in the bookshelf." color 0 pen 6
  377. cx d e
  378. The number of the page
  379. you are currently viewing
  380. and the total number of
  381. pages in the bookshelf.
  382. on Help
  383. begin
  384.   play notes "cx d e"
  385.   blackboard "Press this button to see\n" &
  386. "a list of book categories.\n" &
  387. "To go to another category,\n" &
  388. "position the mouse over the\n" &
  389. "name and release the button." color 0 pen 6
  390. on SelectDown
  391. begin
  392.   if (the number of pages) > 12 popup pagenames(1, 9999)
  393.   else popup the pagenames(1, 9999) fontname "\sbook23" fontsize 23
  394.   if it is not empty go to page it
  395. cx d e
  396. Press this button to see
  397. a list of book categories.
  398. To go to another category,
  399. position the mouse over the
  400. name and release the button.
  401. \sbook23
  402. hon Help
  403. begin
  404.   play notes "cx d e"
  405.   blackboard "Press this button to sort\n" &
  406. "the book entries on this page\n" &
  407. "into alphabetical order." color 0 pen 6
  408. on SelectUp
  409. begin
  410.   set pointer to 6
  411.   put ((the number of textfield "LastPrivateField") + 19) into firstprivatenumber
  412.   put ((the number of textfield "LastPublicField") + 19) into firstpublicnumber
  413.   put 0 into total
  414.   put "" into messagefield
  415.   for i = 0 to 19 begin
  416. get firstprivatenumber - i
  417. if (the number of characters of textfield it of this form) > 0
  418. begin
  419. if total = 0 begin
  420.     put textfield it of this form into private
  421.     put textfield (firstpublicnumber - i) of this form into public
  422.     put private into messagefield
  423. begin
  424.     put newline & (textfield it of this form) after private
  425.     put newline & (textfield (firstpublicnumber - i) of this form) after public
  426. add 1 to total
  427.   end
  428.   put an array of (total + 1) integers into pointers
  429.   if total > 0
  430.   begin
  431. for i = 1 to total put i into pointers[i]
  432. for j = 2 to total
  433. begin
  434. get line j of public
  435. i = j - 1
  436. while ((i > 0) and ((line pointers[i] of public) > it))
  437. begin
  438. put pointers[i] into pointers[i + 1]
  439. subtract 1 from i
  440. put j into pointers[i + 1]
  441. for i = 1 to 20
  442. begin
  443. if (i > total)
  444. begin
  445. put empty into textfield (firstprivatenumber - i + 1) of this form
  446. put empty into textfield (firstpublicnumber  - i + 1) of this form
  447. begin
  448. put line pointers[i] of public
  449. into textfield (firstpublicnumber - i + 1) of this form
  450. put line pointers[i] of private
  451. into textfield (firstprivatenumber - i + 1) of this form
  452.   end
  453.   set pointer to 0
  454. cx d e
  455. Press this button to sort
  456. the book entries on this page
  457. into alphabetical order.
  458. LastPrivateField
  459. LastPublicField
  460. on Help
  461. begin
  462.   play notes "cx d e"
  463.   blackboard "Press this button to see\n" &
  464. "information about using and\n" &
  465. "customizing this bookshelf." color 0 pen 6
  466. on SelectUp
  467. begin
  468.   set the pointer to 6
  469.   lock display
  470.   lock output
  471.   set the visibility of layer "Help" to TRUE
  472.   set the lock of layer "F1" to TRUE
  473.   unlock the output overwrite
  474.   play notes "a3x g f e d c"
  475.   unlock display with wipe down area 9, 58, 636, 396
  476.   set the pointer to 0
  477. cx d e
  478. Press this button to see
  479. information about using and
  480. customizing this bookshelf.
  481. a3x g f e d c
  482. on Help
  483. begin
  484.   play notes "cx d e"
  485.   blackboard "Press this button to\n" &
  486. "create a new book."  color 0 pen 6
  487. cx d e
  488. Press this button to
  489. create a new book.
  490. on Help
  491. begin
  492.   play notes "cx d e"
  493.   blackboard "Press this button to open\n" &
  494. "a new book. A file requester\n" &
  495. "will appear for selecting\n" &
  496. "the book to open."  color 0 pen 6
  497. cx d e
  498. Press this button to open
  499. a new book. A file requester
  500. will appear for selecting
  501. the book to open.
  502. hon Help
  503. begin
  504.   play notes "cx d e"
  505.   blackboard "Press this button\nto quit Helm."  color 0 pen 6
  506. cx d e
  507. Press this button
  508. to quit Helm.
  509. on Help
  510. begin
  511.   play notes "cx d e"
  512.   blackboard "Press this button to return\n" &
  513. "to the last book you viewed." color 0 pen 6
  514. cx d e
  515. Press this button to return
  516. to the last book you viewed.
  517. on Help
  518. begin
  519.   play notes "cx d e"
  520.   blackboard "Press this button to display\n" &
  521. "links to book files. You can\n" &
  522. "edit these links by pressing\n" &
  523. "on them with the pointer." color 0 pen 6
  524. on SelectUp
  525. begin
  526.   set the pointer to 6
  527.   lock the display
  528.   get the visibility of layer "Link"
  529.   if it is false begin
  530. set the visibility of layer "Link" to true
  531. play notes "a5x g f e d c"
  532. unlock the display with wipe down area 9, 58, 636, 396
  533.   end
  534.   else begin
  535. set the visibility of layer "Link" to false
  536. play notes "c5x d e f g"
  537. unlock the display with wipe up area 9, 58, 636, 396
  538.   end
  539.   set the pointer to 0
  540. cx d e
  541. Press this button to display
  542. links to book files. You can
  543. edit these links by pressing
  544. on them with the pointer.
  545. a5x g f e d c
  546. c5x d e f g
  547. on Help
  548. begin
  549.   play notes "cx d e"
  550.   blackboard "Press this button to go\n" &
  551. "to the previous page of books." color 0 pen 6
  552. cx d e
  553. Press this button to go
  554. to the previous page of books.
  555. on Help
  556. begin
  557.   play notes "cx d e"
  558.   blackboard "Press this button to go\n" &
  559. "to the next page of books." color 0 pen 6
  560. on SelectUp
  561. begin
  562.   get the number of pages
  563.   if it > 1 then go to next page
  564.   else answer "THERE ARE NO OTHER PAGES OF BUTTONS. \n\n" &
  565. "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" &
  566. "To add a page, choose 'New Page' from\n" &
  567. "the 'Go' menu; copy and paste buttons\n" &
  568. "from another page to the new page;   \n" &
  569. "then change the button names and GO  \n" &
  570. "TO actions to link the Bookshelf to  \n" &
  571. "more books on your system.           \n"
  572. cx d e
  573. Press this button to go
  574. to the next page of books.
  575. 5G`&PS
  576. THERE ARE NO OTHER PAGES OF BUTTONS. 
  577. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  578. To add a page, choose 'New Page' from
  579. the 'Go' menu; copy and paste buttons
  580. from another page to the new page;   
  581. then change the button names and GO  
  582. TO actions to link the Bookshelf to  
  583. more books on your system.           
  584. 3on Help { HelpPath() }
  585. on SelectUp { ResetPath() }
  586. HelpPath
  587. ResetPath
  588. 3on Help { HelpPath() }
  589. on SelectUp { ResetPath() }
  590. HelpPath
  591. ResetPath
  592. 3on Help { HelpPath() }
  593. on SelectUp { ResetPath() }
  594. HelpPath
  595. ResetPath
  596. 3on Help { HelpPath() }
  597. on SelectUp { ResetPath() }
  598. HelpPath
  599. ResetPath
  600. 3on Help { HelpPath() }
  601. on SelectUp { ResetPath() }
  602. HelpPath
  603. ResetPath
  604. 3on Help { HelpPath() }
  605. on SelectUp { ResetPath() }
  606. HelpPath
  607. ResetPath
  608. 3on Help { HelpPath() }
  609. on SelectUp { ResetPath() }
  610. HelpPath
  611. ResetPath
  612. 3on Help { HelpPath() }
  613. on SelectUp { ResetPath() }
  614. HelpPath
  615. ResetPath
  616. 3on Help { HelpPath() }
  617. on SelectUp { ResetPath() }
  618. HelpPath
  619. ResetPath
  620. 3on Help { HelpPath() }
  621. on SelectUp { ResetPath() }
  622. HelpPath
  623. ResetPath
  624. 3on Help { HelpPath() }
  625. on SelectUp { ResetPath() }
  626. HelpPath
  627. ResetPath
  628. 3on Help { HelpPath() }
  629. on SelectUp { ResetPath() }
  630. HelpPath
  631. ResetPath
  632. 3on Help { HelpPath() }
  633. on SelectUp { ResetPath() }
  634. HelpPath
  635. ResetPath
  636. 3on Help { HelpPath() }
  637. on SelectUp { ResetPath() }
  638. HelpPath
  639. ResetPath
  640. 3on Help { HelpPath() }
  641. on SelectUp { ResetPath() }
  642. HelpPath
  643. ResetPath
  644. 3on Help { HelpPath() }
  645. on SelectUp { ResetPath() }
  646. HelpPath
  647. ResetPath
  648. 3on Help { HelpPath() }
  649. on SelectUp { ResetPath() }
  650. HelpPath
  651. ResetPath
  652. 3on Help { HelpPath() }
  653. on SelectUp { ResetPath() }
  654. HelpPath
  655. ResetPath
  656. 3on Help { HelpPath() }
  657. on SelectUp { ResetPath() }
  658. HelpPath
  659. ResetPath
  660. 3on Help { HelpPath() }
  661. on SelectUp { ResetPath() }
  662. HelpPath
  663. ResetPath
  664. on Help
  665. begin
  666.   blackboard "This textfield contains\n" &
  667. "information about using\n" &
  668. "and configuring the bookshelf" color 0 pen 6
  669. This textfield contains
  670. information about using
  671. and configuring the bookshelf
  672. lon Help
  673. begin
  674.   blackboard "Press this button to hide\nthis page of information"
  675. color 0 pen 6
  676. on SelectUp
  677. begin
  678.   set the pointer to 6
  679.   lock display
  680.   set the visibility of layer "Help" to False
  681.   set the lock of layer "F1" to FALSE
  682.   play notes "c3x d e f g a"
  683.   unlock the display with wipe up area 9, 58, 631, 396
  684.   set the pointer to 0
  685. Press this button to hide
  686. this page of information
  687. c3x d e f g a
  688. on preopen
  689. begin
  690.   global Tn
  691.   if Tn = 0 begin
  692. put line 1 of textfield "M" into textfield "T"
  693.   end
  694. on pageclose
  695. begin
  696.   if the name of this page != textfield id 135
  697. set the name of this page to textfield id 135
  698. ResetPath begin
  699.   getfile me
  700.   if it is not empty begin
  701. lock output
  702. put it into me
  703. put (the number of me - (the number of textfield "LastPrivateField") + 
  704. (the number of textfield "LastPublicField")) into n
  705. put space & strfile of it into textfield n of this form
  706. unlock output
  707.   end
  708. GoBook begin
  709.   get (textfield (the number of me - (the number of textfield "LastPublicField") + 
  710. (the number of textfield "LastPrivateField")) of this form)
  711.   if the number of characters of it > 0
  712. go book it
  713.   else begin
  714. play notes "a1W"
  715.   end
  716. HelpBook begin
  717.   play notes "cx d e d c"
  718.   if the number of characters of me > 0
  719. blackboard "Press this button to\ngo to" & me color 0 pen 6
  720.   else
  721. blackboard "No book is linked to this button" color 0 pen 6
  722. HelpPath begin
  723.   play notes "cx d e"
  724.   blackboard "Press this button to open a file selector.\n" &
  725. "If you select a file path, the path is\n" &
  726. "inserted into this button and the name of\n" &
  727. "the file is inserted into the larger button\n" &
  728. "below this button. When you click on the\n" &
  729. "larger button, Helm will close the bookshelf\n" &
  730. "and use the file path to open the book."
  731. color 0 pen 6
  732.     HelpPath
  733.     HelpBook
  734. GoBook
  735. ResetPath
  736.  WhLastPrivateField
  737. LastPublicField
  738. n vPPPS
  739. `&5<PS
  740. LastPublicField
  741. LastPrivateField
  742. Fcx d e d c
  743. Press this button to
  744. go to
  745. No book is linked to this button
  746. ncx d e
  747. Press this button to open a file selector.
  748. If you select a file path, the path is
  749. inserted into this button and the name of
  750. the file is inserted into the larger button
  751. below this button. When you click on the
  752. larger button, Helm will close the bookshelf
  753. and use the file path to open the book.
  754. Examples:Wallpaper8
  755. Examples:PlotBook
  756. Examples:MemoryBook
  757. Examples:MathBook
  758. Examples:Latin
  759. Examples:Elements
  760. Examples:EarTrainer
  761. Examples:CorrectOrder
  762. Examples:BookBase
  763. Examples:Welcome
  764. Utility Books
  765.  Wallpaper8
  766.      PlotBook
  767.  MemoryBook
  768.      MathBook
  769.  Latin
  770.      Elements
  771.  EarTrainer
  772.  CorrectOrder
  773.      BookBase
  774.  -Welcome-
  775. Utility Books
  776. Chicago                         
  777. p?0v`
  778. p?0|0
  779. s>|~?
  780.